home *** CD-ROM | disk | FTP | other *** search
/ Amiga Tools 5 / Amiga Tools 5.iso / tools / dfÜ / bbs / aptbbs1 / apt / rexx / qwkcompile.rexx < prev    next >
Encoding:
OS/2 REXX Batch file  |  1995-10-10  |  6.5 KB  |  127 lines
  1. /*
  2. **  Buttons for qwk_buttons
  3. */
  4.  
  5. CR = 'A'x
  6. parse arg lineno
  7.  
  8. options results
  9. portname = 'APTMANAGER'
  10. address value portname
  11.  
  12. say CR CR "QWK-Button Compiler initiated..." CR
  13.  
  14. /*
  15. ** Some repeated 'defines', saves having larger than life
  16. ** Argument lines..
  17. **
  18. **                 UnHighlighted  Highlighted
  19. ** ------------------------------------------
  20. ** Button Background = BLACK        WHITE
  21. ** Button Text       = WHITE        BLUE
  22. **/
  23.  
  24. COLOUR = 'BCOL_DEF=0 STYLE_DEF="" BCOL_HI=7 STYLE_HI=""'
  25. COLOUR0 = 'BCOL_DEF=0 STYLE_DEF="" BCOL_HI=0 STYLE_HI=""'
  26. COLOUR1 = 'BCOL_DEF=0 STYLE_DEF="" BCOL_HI=7 STYLE_HI=""'
  27. COLOUR2 = 'BCOL_DEF=0 STYLE_DEF="" BCOL_HI=7 STYLE_HI=""'
  28. COLOUR3 = 'BCOL_DEF=0 STYLE_DEF="" BCOL_HI=7 STYLE_HI=""'
  29. COLOUR4 = 'BCOL_DEF=0 STYLE_DEF="" BCOL_HI=7 STYLE_HI=""'
  30. COLOUR5 = 'BCOL_DEF=0 STYLE_DEF="" BCOL_HI=7 STYLE_HI=""'
  31. COLOUR6 = 'BCOL_DEF=0 STYLE_DEF="" BCOL_HI=7 STYLE_HI=""'
  32. COLOUR7 = 'BCOL_DEF=0 STYLE_DEF="" BCOL_HI=7 STYLE_HI=""'
  33.  
  34. /* Two routines, area selection, and area-edit */
  35.  
  36. B0  = " [!] EXIT "  ; B1  = " [A] Page A " ; B2  = " [B] Page B "; B3  = " [C] Page C "; B4  = " [D] PAGE D "
  37. B5  = " [E] Page E "; B6  = " [F] Page F " ; B7  = " [G] Page G "; B8  = " [H] Page H "; B9  = " [I] PAGE I "
  38. B10 = "0"           ; B11 = "1"            ; B12 = "2"           ; B13 = "3"           ; B14 = "4"
  39. B15 = "5"           ; B16 = "6"            ; B17 = "7"           ; B18 = "8"           ; B19 = "9"
  40.  
  41. B20 = "[R] ReDisp"; B21 = "[+] All-On" ; B22 = "[-] All-Off" ; B23 = "[?] HELP"; B24 = "[#] BUNDLE"
  42. B25 = "[M] Mode"; B26 = "[S] Save Areas"
  43.  
  44. 'BUTTONDATA' 'CLEAR'
  45. 'BUTTONDATA' 'BUTTONTEXT="'B0'"'  COLOUR 'WIDTH='LENGTH(B0)'  XPOS=0  YPOS=1  UP=20 DOWN=5  LEFT=25 RIGHT=1'
  46. 'BUTTONDATA' 'BUTTONTEXT="'B1'"'  COLOUR 'WIDTH='LENGTH(B1)'  XPOS=12 YPOS=1  UP=21 DOWN=6  LEFT=0  RIGHT=2'
  47. 'BUTTONDATA' 'BUTTONTEXT="'B2'"'  COLOUR 'WIDTH='LENGTH(B2)'  XPOS=25 YPOS=1  UP=22 DOWN=7  LEFT=1  RIGHT=3'
  48. 'BUTTONDATA' 'BUTTONTEXT="'B3'"'  COLOUR 'WIDTH='LENGTH(B3)'  XPOS=38 YPOS=1  UP=23 DOWN=8  LEFT=2  RIGHT=4'
  49. 'BUTTONDATA' 'BUTTONTEXT="'B4'"'  COLOUR 'WIDTH='LENGTH(B4)'  XPOS=51 YPOS=1  UP=24 DOWN=9  LEFT=3  RIGHT=5'
  50. 'BUTTONDATA' 'BUTTONTEXT="'B5'"'  COLOUR 'WIDTH='LENGTH(B5)'  XPOS=0  YPOS=2  UP=0  DOWN=10 LEFT=4  RIGHT=6'
  51. 'BUTTONDATA' 'BUTTONTEXT="'B6'"'  COLOUR 'WIDTH='LENGTH(B6)'  XPOS=12 YPOS=2  UP=1  DOWN=10 LEFT=5  RIGHT=7'
  52. 'BUTTONDATA' 'BUTTONTEXT="'B7'"'  COLOUR 'WIDTH='LENGTH(B7)'  XPOS=25 YPOS=2  UP=2  DOWN=10 LEFT=6  RIGHT=8'
  53. 'BUTTONDATA' 'BUTTONTEXT="'B8'"'  COLOUR 'WIDTH='LENGTH(B8)'  XPOS=38 YPOS=2  UP=3  DOWN=10 LEFT=7  RIGHT=9'
  54. 'BUTTONDATA' 'BUTTONTEXT="'B9'"'  COLOUR 'WIDTH='LENGTH(B9)'  XPOS=51 YPOS=2  UP=4  DOWN=10 LEFT=8  RIGHT=10'
  55. 'BUTTONDATA' 'BUTTONTEXT="'B10'"' COLOUR 'WIDTH='LENGTH(B10)' XPOS=0  YPOS=6  UP=5  DOWN=11 LEFT=9  RIGHT=11'
  56. 'BUTTONDATA' 'BUTTONTEXT="'B11'"' COLOUR 'WIDTH='LENGTH(B11)' XPOS=0  YPOS=7  UP=10 DOWN=12 LEFT=10 RIGHT=12'
  57. 'BUTTONDATA' 'BUTTONTEXT="'B12'"' COLOUR 'WIDTH='LENGTH(B12)' XPOS=0  YPOS=8  UP=11 DOWN=13 LEFT=11 RIGHT=13'
  58. 'BUTTONDATA' 'BUTTONTEXT="'B13'"' COLOUR 'WIDTH='LENGTH(B13)' XPOS=0  YPOS=9  UP=12 DOWN=14 LEFT=12 RIGHT=14'
  59. 'BUTTONDATA' 'BUTTONTEXT="'B14'"' COLOUR 'WIDTH='LENGTH(B14)' XPOS=0  YPOS=10  UP=13 DOWN=15 LEFT=13 RIGHT=15'
  60. 'BUTTONDATA' 'BUTTONTEXT="'B15'"' COLOUR 'WIDTH='LENGTH(B15)' XPOS=0  YPOS=11 UP=14 DOWN=16 LEFT=14 RIGHT=16'
  61. 'BUTTONDATA' 'BUTTONTEXT="'B16'"' COLOUR 'WIDTH='LENGTH(B16)' XPOS=0  YPOS=12 UP=15 DOWN=17 LEFT=15 RIGHT=17'
  62. 'BUTTONDATA' 'BUTTONTEXT="'B17'"' COLOUR 'WIDTH='LENGTH(B17)' XPOS=0  YPOS=13 UP=16 DOWN=18 LEFT=16 RIGHT=18'
  63. 'BUTTONDATA' 'BUTTONTEXT="'B18'"' COLOUR 'WIDTH='LENGTH(B18)' XPOS=0  YPOS=14 UP=17 DOWN=19 LEFT=17 RIGHT=19'
  64. 'BUTTONDATA' 'BUTTONTEXT="'B19'"' COLOUR 'WIDTH='LENGTH(B19)' XPOS=0  YPOS=15 UP=18 DOWN=20 LEFT=18 RIGHT=20'
  65. 'BUTTONDATA' 'BUTTONTEXT="'B20'"' COLOUR 'WIDTH='LENGTH(B20)' XPOS=0  YPOS=17 UP=19 DOWN=0  LEFT=19 RIGHT=21'
  66. 'BUTTONDATA' 'BUTTONTEXT="'B21'"' COLOUR 'WIDTH='LENGTH(B21)' XPOS=12 YPOS=17 UP=19 DOWN=1  LEFT=20 RIGHT=22'
  67. 'BUTTONDATA' 'BUTTONTEXT="'B22'"' COLOUR 'WIDTH='LENGTH(B22)' XPOS=23 YPOS=17 UP=19 DOWN=2  LEFT=21 RIGHT=23'
  68. 'BUTTONDATA' 'BUTTONTEXT="'B23'"' COLOUR2 'WIDTH='LENGTH(B23)' XPOS=35 YPOS=17 UP=19 DOWN=3  LEFT=22 RIGHT=24'
  69. 'BUTTONDATA' 'BUTTONTEXT="'B24'"' COLOUR 'WIDTH='LENGTH(B24)' XPOS=44 YPOS=17 UP=19 DOWN=4  LEFT=23 RIGHT=25'
  70. 'BUTTONDATA' 'BUTTONTEXT="'B25'"' COLOUR 'WIDTH='LENGTH(B25)' XPOS=55 YPOS=17 UP=19 DOWN=4  LEFT=24 RIGHT=26'
  71. 'BUTTONDATA' 'BUTTONTEXT="'B26'"' COLOUR 'WIDTH='LENGTH(B26)' XPOS=64 YPOS=17 UP=19 DOWN=4  LEFT=25 RIGHT=0'
  72.  
  73. 'BUTTONDATA' 'SAVE="tplates:qwk/qwk.bank"'
  74. 'BUTTONDATA' 'CLEAR'
  75.  
  76. say '                        ................... Completed #1' CR
  77.  
  78. /* ----------------------------------------------------------------------*/
  79.  
  80. /* Area edit */
  81. /*
  82. ** Not used - just aint worth it
  83. */
  84.  
  85.  
  86. B0 = "    Select    "
  87. B1 = "   Unselect   "
  88. B2 = " Start number "
  89. B3 = "  Num to grab "
  90.  
  91. 'BUTTONDATA' 'CLEAR'
  92. 'BUTTONDATA' 'BUTTONTEXT="'B0'"' COLOUR 'WIDTH='LENGTH(B0)' XPOS=30 YPOS=17 UP=3 DOWN=1 LEFT=0 RIGHT=0'
  93. 'BUTTONDATA' 'BUTTONTEXT="'B1'"' COLOUR 'WIDTH='LENGTH(B1)' XPOS=30 YPOS=18 UP=0 DOWN=2 LEFT=1 RIGHT=1'
  94. 'BUTTONDATA' 'BUTTONTEXT="'B2'"' COLOUR 'WIDTH='LENGTH(B2)' XPOS=30 YPOS=19 UP=1 DOWN=3 LEFT=2 RIGHT=2'
  95. 'BUTTONDATA' 'BUTTONTEXT="'B3'"' COLOUR 'WIDTH='LENGTH(B3)' XPOS=30 YPOS=20 UP=2 DOWN=0 LEFT=3 RIGHT=3'
  96. 'BUTTONDATA' 'SAVE="tplates:qwk/edit.bank"'
  97. 'BUTTONDATA' 'CLEAR'
  98.  
  99. say '                           ................... Completed #2' CR
  100.  
  101. /* ----------------------------------------------------------------------*/
  102.  
  103. /* Area edit */
  104. /*
  105. ** Not used - just aint worth it
  106. */
  107.  
  108.  
  109. B0 = "Download Messages"
  110. B1 = "Upload Reply     "
  111. B2 = "Update Last Read "
  112. B3 = "Edit Areas       "
  113. B4 = "QUIT to BBS      "
  114. B5 = "HELP!            "
  115.  
  116. 'BUTTONDATA' 'CLEAR'
  117. 'BUTTONDATA' 'BUTTONTEXT="'B0'"' COLOUR6 'WIDTH='LENGTH(B0)' XPOS=15 YPOS=8 UP=4 DOWN=2 LEFT=1 RIGHT=1'
  118. 'BUTTONDATA' 'BUTTONTEXT="'B1'"' COLOUR6 'WIDTH='LENGTH(B1)' XPOS=56 YPOS=8 UP=5 DOWN=3 LEFT=0 RIGHT=0'
  119. 'BUTTONDATA' 'BUTTONTEXT="'B2'"' COLOUR6 'WIDTH='LENGTH(B2)' XPOS=15 YPOS=9 UP=0 DOWN=4 LEFT=3 RIGHT=3'
  120. 'BUTTONDATA' 'BUTTONTEXT="'B3'"' COLOUR6 'WIDTH='LENGTH(B3)' XPOS=56 YPOS=9 UP=1 DOWN=5 LEFT=2 RIGHT=2'
  121. 'BUTTONDATA' 'BUTTONTEXT="'B4'"' COLOUR6 'WIDTH='LENGTH(B4)' XPOS=15 YPOS=10 UP=2 DOWN=0 LEFT=5 RIGHT=5'
  122. 'BUTTONDATA' 'BUTTONTEXT="'B5'"' COLOUR2 'WIDTH='LENGTH(B5)' XPOS=56 YPOS=10 UP=3 DOWN=1 LEFT=4 RIGHT=4'
  123. 'BUTTONDATA' 'SAVE="tplates:qwk/qwkbundle.bank"'
  124. 'BUTTONDATA' 'CLEAR'
  125.  
  126. say '                              ................... Completed #3' CR
  127.